home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / AFT_SEEN.ZIP / aft_seen.txt
Text File  |  1996-12-29  |  4KB  |  52 lines
  1. 
  2.                     AFt's Last-Seen Script v1.0 
  3.                     Part of new upcoming script:
  4.                         -[ºW╦╩tár╦vδ±G╩]-
  5. 
  6. This script keeps records of everybody that parts, quits, gets kicked,
  7. or otherwise leaves a channel.  You can use this to look up a nick
  8. and see what time they left and from where or why, or you can have
  9. other users use it to look for their friends.
  10. In a channel, users type "seen <nick>" or in a /msg, ".seen <nick>".
  11. 
  12.                     Paste this in Remote/Events:
  13. 
  14.  
  15. 1:ON QUIT: {
  16.   %lastseen = $readini $mircdirtoggles.ini Settings lastseen
  17.   %timefirstpart = $token(1,$asc(:),$time) | if (%timefirstpart > 12) { dec %timefirstpart 12 | set %timepm [YES] } | if (%timepm = [YES]) { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) pm } | else { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) am }
  18.   if (%lastseen == [ON]) { %nick = $remove($nick,]) | %nick = $remove(%nick,[) | writeini $mircdirseen.rvg Lastseen %nick $nick lastseen on $day $+, $adate at %time $+ , Quit IRC with  $+ $parms $+  as the quit message. }
  19. }
  20. 1:ON PART:#: {
  21.   %lastseen = $readini $mircdirtoggles.ini Settings lastseen
  22.   %timefirstpart = $token(1,$asc(:),$time) | if (%timefirstpart > 12) { dec %timefirstpart 12 | set %timepm [YES] } | if (%timepm = [YES]) { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) pm } | else { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) am } 
  23.   if (%lastseen == [ON]) { %nick = $remove($nick,]) | %nick = $remove(%nick,[) | writeini $mircdirseen.rvg Lastseen %nick $nick lastseen on $day $+, $adate at %time $+ , leaving $chan }
  24. }
  25. 1:ON KICK:#: {
  26.   %lastseen = $readini $mircdirtoggles.ini Settings lastseen
  27.   %timefirstpart = $token(1,$asc(:),$time) | if (%timefirstpart > 12) { dec %timefirstpart 12 | set %timepm [YES] } | if (%timepm = [YES]) { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) pm } | else { set %time %timefirstpart $+ : $+ $token(2,$asc(:),$time) am }
  28.   if (%lastseen == [ON]) { %nick = $remove($nick,]) | %nick = $remove(%nick,[) | writeini $mircdirseen.rvg Lastseen %nick $nick lastseen on $day $+, $adate at %time $+ , getting kicked out of $chan }
  29. }
  30. 1:ON TEXT:seen *:#: {
  31.   %nick = $remove($parm2,]) | %nick = $remove(%nick,[) | %seen = $readini $mircdirseen.rvg LastSeen %nick
  32.   if (%seen == $null) { msg $chan [ºW╦╩tár╦vδ±G╩] - Have not seen $parm2 | halt } | else { msg $chan [ºW╦╩tár╦vδ±G╩] - %seen }
  33. }  
  34. 1:ON TEXT:.seen *:?: {
  35.   %nick = $remove($parm2,]) | %nick = $remove(%nick,[) | %seen = $readini $mircdirseen.rvg LastSeen %nick
  36.   if (%seen == $null) { msg $nick [ºW╦╩tár╦vδ±G╩] - Have not seen $parm2 | halt } | else { msg $nick [ºW╦╩tár╦vδ±G╩] - %seen }
  37. }  
  38.  
  39. 
  40.                       Paste this in Popups:
  41. 
  42.  
  43. Last Seen
  44. .Seen On:writeini $mircdirtoggles.ini Settings lastseen [ON]
  45. .Seen Off:writeini $mircdirtoggles.ini Settings lastseen [OFF]
  46. .-
  47. .Look Up Nick:{
  48.   %nick = $remove($$?="Enter Nick",]) | %nick = $remove(%nick,[) | %seen = $readini $mircdirseen.rvg LastSeen %nick
  49.   if (%seen == $null) { echo 4 [ºW╦╩tár╦vδ±G╩] - Have not seen $$! | halt } | else { echo 4 [ºW╦╩tár╦vδ±G╩] - %seen }
  50. }
  51.  
  52.